load("bichos.rdata")
ls()
rm(list=ls(pattern="temp"))
save(anfibios,aves,mamiferos,file="bichos01.rdata")